home *** CD-ROM | disk | FTP | other *** search
/ BlastDOS / [DOS_Application]_BIT_Software_-_BitCom_3.58c_-_Distribution_Disks.zip / TVI9XX.EMU < prev    next >
Text File  |  1990-06-01  |  2KB  |  135 lines
  1. INITIAL
  2. {Televideo 900 series terminal emulation. Includes TVI 925, 955 }
  3. z#origin(1)
  4. z#awrap(0)
  5. z#setatt(7)
  6. z#setmar(1,@mrow)
  7. z#setins(0)
  8. @uparr = '"$0b"'
  9. @dnarr = '"$0a"'
  10. @riarr = '"$0c"'
  11. @lfarr = '"$08"'
  12. @home = '"$1e"'
  13. @pgup = '"$1bJ"'
  14. @pgdn = '"$1bK"'
  15. @end = '"$05"'
  16. @ins = '"$06"'
  17. @del = '"$04"'
  18. @bs = '"$7f"'
  19. @f1 = '"$01@@$0d"'
  20. @f2 = '"$01A$0d"'
  21. @f3 = '"$01B$0d"'
  22. @f4 = '"$01C$0d"'
  23. @f5 = '"$01D$0d"'
  24. @f6 = '"$01E$0d"'
  25. @f7 = '"$01F$0d"'
  26. @f8 = '"$01G$0d"'
  27. @f9 = '"$01H$0d"'
  28. @f10 = '"$01I$0d"'
  29. END
  30. INBUFFER
  31. 0x8D 0x0D
  32. 0x00 NUL
  33. 0x08 BS2
  34. 0x0b LF
  35. 0x0c LF
  36. 0x1a CAN
  37. 0x7f NUL
  38. END
  39. INBUFFER2
  40. 0x00 NUL
  41. 0x08 BS2
  42. 0x0b LF
  43. 0x0c LF
  44. 0x1a CAN
  45. 0x7f NUL
  46. 0x30 0xC2
  47. 0x31 0xC0
  48. 0x32 0xDA
  49. 0x33 0xBF
  50. 0x34 0xC3
  51. 0x35 0xD9
  52. 0x36 0xB3
  53. 0x37 0xDB
  54. 0x38 0xC5
  55. 0x39 0xB4
  56. 0x3A 0xC4
  57. 0x3B 0xB1
  58. 0x3C 0xCD
  59. 0x3D 0xC1
  60. 0x3E 0xBA
  61. 0x3F 0xB2
  62. END
  63. OUTBUFFER
  64. END
  65. HOSTCODE
  66. $18             clear
  67. $1A             clear
  68. [\a;\bv
  69. [0;1}
  70. M              "955 R.0,m$0d"
  71. |\a\b
  72. [=\al
  73. [=\ah
  74. ~\a
  75. '\a
  76. b
  77. d
  78. n
  79. o
  80. k
  81. l
  82. e
  83. F\a
  84. .\a
  85. >
  86. <
  87. $1E             poscur(1,1)
  88. {               poscur(1,1)
  89. =%r%c           poscur(expr(%c-31),expr(%r-31))
  90. a\rR\cC         poscur(\\c,\\r)
  91. *               poscur(1,1);z#clreos
  92. +               poscur(1,1);z#clreos
  93. T               z#Clreol
  94. t               z#Clreol
  95. Y               z#Clreos
  96. y               z#Clreos
  97. R               z#dellin(1)
  98. E               z#inslin(1)
  99. W               z#del(1)
  100. (               z#Setatt(15)
  101. )               z#setatt(07)
  102. `0
  103. `1
  104. `8
  105. `9
  106. `:
  107. [=3h            @maxrow=44;dos("setmax -ammon -c132  -r44  -mmono");clear
  108. [=3l            @maxrow=24;dos("setmax -ammon -c132  -r44  -mmono");clear
  109. G0              z#setatt(7)
  110. G2              z#setatt(128)
  111. G4              z#setatt(112)
  112. G6              z#setatt(112)
  113. G8              z#setatt(1)
  114. G?
  115. G<              z#setatt(112);z#setatt(01)
  116. G>              z#setatt(112);z#setatt(128);z#setatt(1)
  117. G:
  118. G;
  119. H$02            z#setbuf(2,1)     { 6-89 modified }
  120. H$03            z#setbuf(1,1)     { 6-89 modified }
  121. z(
  122. Z(
  123. x
  124. F
  125. ]
  126. }
  127. P
  128. $20  "50$0D"
  129. 1               z#tabset
  130. 2               z#tabclr
  131. '
  132. C
  133. X
  134. END
  135.